get_unit Subroutine

subroutine get_unit(iunit)

************80

GET_UNIT returns a free FORTRAN unit number.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	iunit

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	i
integer(kind=4),	public		::	ios
logical,	public		::	lopen